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Abstract: 

This is the fourth report of a series exploring the use of the U programming notation to prototype a 
programming environment. This environment includes an interpreter, unparser, syntax directed editor, 
command interpreter, debugger and code generator, and supports programming in a small applicative 
language. The present report extends the interpreter, unparser, syntax directed editor, command inter- 
preter and debugger to accommodate recursive function definition and invocation, and completes the 
extension of the language into an applicative programming system supporting higher-order functions. 
An implementation of these ideas is listed in the appendices. 

1. Introduction 

Our goal in this series of reports* | MacLennan85b, MacLenn an85c, MacLennan86] is to explore in the 
context of a very simple language the use of the D programming notation ( MacLennan83, 
MacLennan85ai to implement some of the tools that constitute a programming environment. 

The structure of this report is as follows: First we outline the requirements for the function 
definition facility. Next we define the abstract structure of function definitions and invocations. We 
proceed to the dynamic structures required to support recursive, statically scoped procedures. This 
leads naturally to the topic of evaluation. We finish by discussing possible debugger support for the 
new facilities. As in previous reports, a running system demonstrating these ideas is listed in the 
appendices. 



Support for this research was provided by the Office of Naval Research under contract N00014-S6- WR-24092. 
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2. Goal 



VVe want to permit the definition and invocation of statically scoped recursive functions. For exam- 
ple. the following program defines factorial recursively and invokes the resulting definition with argu- 
ment K = 4: 

jfimc fac n = 

(if (n= 0) 
then 1 

else (nxfac (n-l)) ) 

let K = 4 
fac K 

It’s easy to see that the general form of a function definition is: 

fiinc F N = B 
X 

For simplicity we restrict our attention to monadic functions. 

3. Abstract Structure 
3.1 Function Definition 

The abstract structure of a function definition block is represented in a straightrforw'cLrd way as a 
node with four descendents, corresponding to the function name, formal parameter, function body and 
block body. These are defined by the following declarations: 

• FunDef ( E) 

is a function definition 
Degree (FunDef. l) . 

• Fun. Name ( F. E) 

F is the function name of E 
Function (FunName, FunDef, string). 
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• Fun Formal (.V, E) 

S is the formal of E 

Function (FunFormal, FunDef, string). 

• FunBody [B , E) 

B is the body of E 

Function (FunBody, FunDef, expr). 

• Fun Scope (A’, E) 

X is the scope of E 

Function (FunScope, FunDef. expr). 

Note that, for convenience (and consistency with let blocks) the FunName and FunFormal attributes 
are strings, rather than variable nodes. This complicates editing and is probably, in the long run, a bad 
decision. The problem is solved in Part VI, where table-driven syntax-directed editing is disussed. 

3.2 Function Invocation 

The abstract syntax of function invocations is straight-forward. Note that the function is allowed to 
be an arbitrary expression, which (as we’ll see later) goes through the usual evaluation process. This, 
in conjunction with the representation of closures, permits general functional programming. The 
abstract structure is represented by the relations: 

. Call(£) 

£* is a call 
Degree ( ("all. 1 ) .- 

• Rator ( F, E) 

F is the operator of E 
Function (Rator. Call. Var). 

. Rand (A, i?) 

is the operand of E 



Function (Rand, Call, expr). 



4. Dynamic Structures 



4.1 Qosures 

Recall that in statically scoped languages a function executes in its environment of definition rather 
than its environment of call. Thus, when a function binding is made, it is necessary to record the 
function’s environment of definition. This is done by binding the function’s name to a closure object. 
A closure has three parts: 

1. EP: environment part ( environment of definition) 

2. IP: instruction part (body of function) 

FP; formal parameter 

The abstract structure of closures is represented by the following relations: 

• Closure (A') 

K is a closu re 
Degree (Closure, 1). 

. EP (C, A) 

C IS the environment part of K 
Function ( EP, Closure, Context). 

• IP (A, K) 

B is instruction part of K 
Function (IP. Closure, expr). 

. FP(.V, A) 

N is formal parameter of K 
Function (FP, Closure, string). 

4.2 Dynamic Link 

In addition to the closure, which determines the environment in which a function executes, it is also 
necessary to determine the caller, within whom’s execution the execution of the callee is dynamicaily 
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nested. This is called the dynamic link of the current context, and is represented by the relation: 

. Caller (E, C, B, .4) 

• in C is caller of B in A 

• Function (Caller, exprx Con text, exprx Context). 

Thus, the Caller relation refers back from the callee's expression/ con text (IP/EP) pair to the caller's 
expression/context pair. 

Why do we not simply make the Caller relation a link from the callee’s body to the caller node: 
Caller {E, B)? In the presence of recursive function invocations it’s possible for function bodies to be 
multiply active, that is. there may be several evaluations of a function body in progress at the same time. 
These different evaluations are distinguished only by the fact that they occur in different contexts 
(which is guaranteed by our creating new context objects on block and function entry). Thus an 
expression /context pair is necessary to uniquely identify a particular evaluation process. This will 
become more apparent when we discuss the return process below, for it's necessary for a particular 
function activation to return to the proper caller activation. 

5. Evaluation 

5.1 Invocation and Return 

Evaluation of a function invocation begins with evaluation of the Rator and Rand components of 
the Call node. Notice that by running the Rator through the usual evaluation process we permit it to 
be any expression, including another function call. This permits functional programming, that is. the 
use of higher-order functions. The analysis rule for Calls is: 

"Eval {E, C), Call (E), Rator (F, E'), Rand (X, E) 

Eval (F, C). Eval (A'. C). 

The synthesis rule expects a closure to be returned as the result of evaluating the Rator. The closure in 
turn provides access to the body (IP), formal parameter (FP) and environment of definition ( EP) of 
the callee. Evaluation of the function’s body B is initiated in the appropriate environment (/I), which 



results from binding the formal N to the value V of the actual, and linking the resulting context A to 
the environment of definition D. It^s also necessary to construct a dynamic link reflecting that E in 
context C is the caller of B in context A. The required rule is: 

Call (^), Rator [F, E), Rand (X E), *Value (A\ F, C), *Value ( T, .Y, C), 

Closure (A), EP [D , A), IP (A, A), FP (X, A), "Avail (A) 

=> Context (A), Nonlocals [D, A), Binds (A, iV, F) , Caller (A, C, R, A), Eval (R, A). 

Eventually evaluation of the functions body completes. Then the dynamic link is used to transfer the 
returned value from the function's body to the Call node, thus triggering resumption of evaluation in 
the caller. The rule is: 

^Caller (A, C, R. A), "Value ( V, R, A) 

Value ( V. A, C). 

Notice that if the Caller relation did not include the contexts C and R it would be possible for a value 
to become attached to a function's body, and be returned to the wrong one of several waiting callers. 

5.2 Function Definition 

For recursion to work correctly, the environment of definition of a function must include the bind- 
ing of the function name itself. Thus, the context referred to by the EP of the Closure is that same 
Context that results from binding the function name to that Closure. We will have to ensure that the 
Context constructed by a function definition node (FunDef) has this reflexive property. 

Evaluation of a function definition block is similar to that of a let block, except that the bound value 
(function body) is not evaluated at this time. Instead, a closure for the function is constructed, and the 
function's name is bound to this closure. This binding forms the context for the evaluation of the 
block's body. The analysis rule initiates evaluation of the block's body in this context; 

"Eval (A, C). FunDef (A). FunName ( F, A). FunFormaJ (X, A), 

FunFk^dy (R, A), FunScope (A’, A), "Avail (A, K) 

Context (A), Nonlocals (C, A), Binds (A, F, A'). 
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Closure (A'), EP (D, A'), IP (B, K), FP (.V, A'), Eval ( A\ D). 



A synthesis rule waits for a value to arrive at the block’s body, and attaches the value to 
block itself (i.e., the value of the function definition block is the value of the block’s body) 

*FunDef (A), FunScope (A', A), *Value ( A\ A), Nonlocals ( C, D) 

^ Value ( A, C). 

An script demonstrating these rules is listed in Appendix B. 

6. Debugging 

Suppose we have the following program: 

show 
! let K = 4 
fimc fac n = 

(if (n= 0) 
then {error} (I/O) 
else (nxfac( n-l) ) ) 
fac K 

When evaluation reaches the bottom of the recursion the zero division suspends execution 
like to be able to explore the context of the error as indicated in the following example: 

evaluate 
division be zero 
context 
fac ( n = 0) 
caller 
fac ( n = 1) 
callee 



the function 



We would 



fac ( n ^ 0) 



callee 



fac ( n = 1 ) 
callee 
fac (n = 2) 
out_context 
fac = ... function ... 
out_context 
K = 4 

Notice that the callee command is not single-valued, since there may be several calls being evaluated at 
one time. For example, in the program 

func f X = .... 

(f 1 - f 2) 

the two invocations of ‘f’ could be evaluated in parallel. Thus there would be dynamic links from both 
of these activations to the block body, and the callee command would not know which of these to pick. 
The reader should consider possible solutions to this problem. 

First we consider the evaluator modifications necessary to support these debugging facilities. To 
accomplish our goal we need to record the name of a function along with its context. This is analogous 
to storing the function's name in its activation record. Hence, we modify the Enter Body Rule to 
record the function’s name in the Name relation, which is defined: 

• Name (A/. C) 

• \1 is the name of C 

• Function (Name. Context, string). 

The new Enter l3ody Rule is straight-forward: 

Call (£'). Rator (F. E), Rand (A'. E). Var(F), Ident (A/, F), * Value (A, F, C), *Value (V, A. C). 
Closure (A), EP (D, A), IP (B. A), FP (A, A), CAvail (A) 

Context (A), Nonlocal (F, A). Binds (A, A, V), Name (A/, A), Caller (F, C, F. A), 
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Eval (B, A). 



We alter the context command rule to notice when a variable binding is a result of function invocation, 
so that we can show the name of the function: 

^Command (context), CurrentContext (C), Binds (C, N, V) , Name (>/, C) 

^ Display (M ^ ^ ^ string- int [ K] ). 

For function bindings, rather than trying to interpret the closure, we simply note the fact that the name 
is bound to a function. 

^Command (context). CurrentContext (C), Binds (C, N, K), Closure (A') 

Display ( iV = ... function ...'’). 

The reader can take it as an exercise to write the rule to unparse the function’s body, should that be 
desired. 

Implementation of the caller command is simply a matter of following the dynamic link: 

^Command (caller), CurrentContext (^), Caller [E, C , B , A) 

CurrentContext (C). Command (context). 

The rule for Sallee' is analogous. 

What other debugging commands would be useful? It would be useful to exit from a function to its 
caller by supplying a return value. Exercise for the reader: Define the ‘exit r ’ command with this 

mean ing. 
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APPENDIX A: Prototype Programming Environment 



The following is a loadable input file for the prototype programming environment described in this 
report. It is accepted by the McArthur interpreter j McArthur84 ; , which differs in a few details from 
the n notation used in this report (see [MacLennan84j ) . A transcript of a test execution of this 
environment is shown in Appendix B. 



PI-4 

I 

! A simple programming environment for an arithmetic 
! expression lajiguage. including interpreter, unparser, 

! syntax directed editor and debugger. 

j 

1 Features included in the language: 

! - Constants 

! - Arithmetic Operations 

! - Statically Nested Declarations 

! - Comments 

! - Conditional Expressions 

! - Recursive Function Definition and Invocation 



: PERVASIVE RELATIONS 

! Evaluation 

newrelation {■'Eval”}; 
newrelation {”Check"}: 
newrelation {'A^alue”}; 
newrelation {'Meaning’*}; 
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newrelation {’'Explanation"}; 



! Contexts and Bindings 

newrelation ("Context"}; 
newrelation ("Binds"}; 
newrelation ("Nonlocal"}; 
newrelation ("Looking"}. 

! Un parsing 

newrelation ("L^nparse "}: 
newrelation ("Image"}; 
newrelation (’Template"}; 

! Comments 

newrelation ("Comment"}. 

! Format Control Constants 
define (root, "NL", " 

define (root. ’Tabln". ""}; 
define (root, ’TabOut", ""}; 

! Logical Constants 

define (root, "true". 1 }; 
define (root. ’Talse". 0}. 



! COMMAND INTERPRETER 



! Command Interpreter Relations 

newrelation {'Commajid*'}; 
newrelation {"Argument"}; 
newrelation {"Root"}; 
newrelation {’TJndef"}; 
newrelation {’CurrentNode"}; 
newrelation {"CurrentContext"}; 
newrelation {"SuspendedEval"}: 

newrelation {"Break"}; 
newrelation {’BvalPending"}; 
newrelation {"ShowPending"}; 
newrelation {'CommandPending"}; 
newrelation {’Create Root"}; 
newrelation {’CreateContext"}. 

define {root. ’ComlntRules", < < 

! evaluate Command 

if ^Command ("evaluate"), CurrentNode (E), CurrentCon text (C) 

-> Eval ( E, C), EvalPending (E), CommandPending (E); 

if *Value (V, E, C), *EvalPending (E), *CommandPendin g (— ) 
displa\7i {V}; 

! Error Handler 

if *Break (M, E, C), *CommandPending (— ), *EvalPending (R), ^SuspendedEval (— ) 
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-> displayn {M}, SuspendedEval (R), CurrentNode (E), CurrentContext (C); 

! resume Command 

if ^Command (’Vesume”), SuspendedEval (Nil) 

-> displayn {’*no evaluation in progress"} 

else if ^Command (’‘resume"), CurrentNode (E), CurrentContext (C), ^SuspendedEval (R) 
-> Eval (E, C), EvalPending (R), SuspendedEval (Nil); 

! return Command 

if ^Command (’Val"), *Argument (V), CurrentNode (E) 

-> Value ( V, E, C) ; 

! show Command 

if *Command ("show"), CurrentNode (E) 

•> Unparse ( E) , ShowPending (E), CommandPending (E); 

if *Image (S. E), '^'ShowPendin g (E), ^CommandPending (— ) 

-> displavTi {S}; 

1 abort Command 

if Command ("abort"), *Eval (E, C) -> ; 
if Command ("abort"), *Value (V, E, C) -> ; 

if Command ("abort"), *Check (V, E, C) -> ; 

if Command ("abort"), ^Nonlocal (C, D) -> ; 

if Command ("abort"), *Binds (D, N. \") -> ; 

if ^Command ("abort"), ^Eval ( E, C), 'Value (V, E, C), 'Nonlocal (C. D), 'Binds (D, N, V), 
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*SuspendedEval (— ), *CurrentCon text (— ) 

-> CurrentContext (Nil), SuspendedEval (Nil), displayn {"aborted”}; 
! done Command 

if ^Command ("done”) -> displayn {’PI system stopped"}; 
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! Syntax Directed Editing 



if *Command ("delete"), CurrentNode (E), Undef (E) 

-> displayn ( "already deleted") : 

! begin Command 

if ^Command (’^egin"), *CurrentNode (— ) 

-> CreateRoot (newobj {}) , CommandPending (Nil); 

if *CreateRoot (E), *CommajidPending (— ) 

- Root (E). Undef ( E) . CurrentNode (E): 

! root Command 

if "^Command ("root"), ^CurrentNode (— ), Root (E) 

-> CurrentNode (E). Command (’'show"); 

! Debugging Commands 
• out_context Command 

if *Command ( "out_context") , *CurrentContext (D), Nonlocal (C, D) 
-> Curre ntContext (C), Command ("context") 

else if *Command ( "ou t_context") 

-> displayn ("at outermost level") ; 

! in^context Command 

if ^Command ( "in_context") , ^CurrentContext (C), Nonlocal (C, D) 
Curre ntContext (D). Command ("context") 

else if *Command ( "in_context") 
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-> displavTi (”at innermost level”); 



! aJter Command 

if *Command (”aJter”), ""Argument (U), CurrentContext (C), *Binds (C, N, V 
-> Binds (C, N, U), Command (’’context”) 

else if '^'Command (’’aJter”), ^Argument (— ) 

-> displayn (”no binding”); 

>>}• 

act {ComlntRules }. 
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! COMMENTS 



define {root, 'HemRules'', < < 

! rem Command 

if ^Command (’Vem’'), ^Argument (S), CurrentNode (E), “Comment (— , E) 
-> Comment (S, E); 

if "^Command (’Vem”), ^Argument (— ), CurrentNode (E), Comment (— , E) 
-> displayn ( 'Viode already commented") ; 

! delete^em Command 

if ^Command ( "delete _rem"), CurrentNode (E), *Comment (— , E) 

-> displayn ("done"); 

if ^Command ( "delete _rem") , CurrentNode (E), “Comment (— , E) 

-> displayn ("no comment"); 

>>}• 

act {RemRules}. 

’ INCOMPLETE PROGRAM 
' Tables 

Explanation ( ’^incomplete program", "error", 0 ). 
define (root, "IncomProgRules", < < 

! Evaluation 

if *Eval (E, C), Undef (E), *Currcnti\ode (— ) 

-> Break (’Incomplete", E, C); 
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! Unparsing 



if *Unparse ( E) , Undef (E) 
-> Image (”< expr> ", E); 
>>}■ 



act {IncomProgRules}. 



’ CONSTANT NODES 



! Relations 

newrelation {’Con"}; 
newrelation {’Litval"}. 

! Functions 

fn Id [x] : X. 

! Tables 

Meaning (Id, "lit"). 

Template (int_str, "lit"). 

define {root, ’ConRules", < < 

! Evaluation 

if *Eval (e, c) , Con (e), Litval (v, e), Meaning (f, "lit") 

-> \’alue (f V , e, c) ; 

I l‘nparsing 

if *Unparse (e). Con (e), Litval (v, e), Template (f, "lit"), Comment (s, e) 

-:> Image ( f vi ^ s "}", e) 

else if ’’'l^nparse (e), Con (e), Litval (v, e), Template (f, "lit") 

- ^ Image ( f v; , e) ; 

! ^ Command 

if "‘Command ("#"), ^Argument (V), Islnt \|, CurrentNode (E), *Undef ( E) 
-> Con (E), Litval {\ . E); 
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if ^Command ("#”), *Argument (V), CurrentNode (E), "Undef (E) 
-> displavTi (’’defined node”); 

! delete Command 

if ^Command (’’delete”), CurrentNode (E), *Con (E), '’'Litval (V, E) 
-> Undef (E), Command (’’show”); 

>>}• 

act {ConRules}. 
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! VARIABLE NODES 



! Relations 

newrelation {'Var*'}; 
newrelation {’Ident"}. 

define {root, 'A^arRules'*, < < 

! Evaluation 

if *Eval (E. C), Var (E). Ident (N, E) 

-> Looking (N, C, E. C); 

if ^Looking (N, C, E. D), Binds (C, N, V) 

-> Value (V, E. D) 

else if *Looking (N, C, E, D), Nonlocal (Cprime, C) 

-> Looking (N, Cprime, E, D) 

else if "^Looking (N. C. E, D), "^CurrentNode (— ), *CurrentContext ( 
-> Break ('LTnbound: -f N, E, D); 

! Un parsing 

if *Unparse (E), Var (E), Ident (N, E), Comment (S, E) 

- Image ( N - " S - E) 

else if *Unparse (E), Var (E), Ident (N, E) 

-> Image ( N. E) : 

! var Command 

if *Command (’Var"), ^Argument (N), C>urrentNode ( E) . *Undef (E) 
-> Var (E), Ident (N, E) ; 
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I delete Command 



if ’^Command ("delete”), CurrentNode (E), *Var (E), "^Ident (N, E) 
-> Undef (E), Command ('*show”); 

>>}. 



act {VarRules}. 
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! APPLICATION NODES 



! Relations 

newrelation {'*Appl”}; 
newrelation {’Op”}; 
newrelation {’Left”}; 
newrelation {”Right”}; 

newrelation {’Oreate Appl”}. 

! Evaluation Functions 

fn Sum , X, y] : X y; 
fn Dif ! X, y) : X - y; 
fn Product x, y): x * y; 
fn Quotient [x, yj: 

if y = 0 -> "error”, 1 
else X y; 

fn Equal x, yj: if x = y -> true else false; 

fn IsErrorcode jw*: 

if TsList w] !w = Nil -> Nil 
else first i w) = "error”; 

! Unparsing Functions 

fn upSum |x, y : ^ x + " ^ " + y ^ ”) ”; 

fn upDif .X. y : "( " - x - ” - " ^ y ^ ’’) "; 

fn upProd x, y : ”( " — x ^ ” x — y ^ ") "; 

fn upQuot jx, y : ^ x — u ^ ^ Y ^ m. 

fn upEqua |x, y): "( " + x -f ” = " y ”) ". 



! Evaluation Tables 



Meaning (Sum, ”-t- "); 

Meaning (Dif, 

Meaning (Product, '‘x"); 

Meaning (Quotient, ; 

Meaning (Equal, ”) , 

! Unparsing Tables 

Template (upSum, ”) ; 

Template (upDif, 

Template (upProd, ”x”) ; 

Template (upQuot, 

Template (upEqua, ”). 

! Other Tables 

Explanation ("division by zero", f "error", l]). 
define {root, "ApplRules", < < 

! Evaluation 

if *Eval (e, c) , A ppl (e). Left (x, e), Right (y, e) 

Eval (x. c) . Eval (y, c); 

if *Value (u, x. c) , *Value (v, y, c), Appl (e). Op (n, e), Left (x, e), Right (y, e). Meaning (f, n) 
- > Check ( f u, vj , e, c) ; 

if *Check (w, e, c) , "IsErrorcode 'w 
-> Value ( w, e, c) ; 

if *Check (w, e, c) , IsErrorcode ’w]. Explanation (s, w). *CurrentNode (q) 
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-> Break (s, e, c) ; 



! Un parsing 

if '’'Unparse (e), Appl (e), Left (x, e), Right (y, e) 

-> Unparse (x) , Unparse (y); 

! Unparsing Comments on Applications 

if Appl (E), Op (N, E), Left (X, E) , Right (Y, E), *Image (U, X), *lmage (V, Y), Comment (S, E) 
-> Image ( " {" -r S "} (" -h U + N ^ V + ") ”, E) 

else if '’'Image (u, x) , *Image (v, y), Appl (e), Op (n, e), Left (x, e). Right (y, e), Template (f, n) 
-> Image (f [u, v| , e); 

! ^ X , /, = Commands 

if *Command (op), member [op, ", ’*x’\ 'V” "J], *CurrentNode (E), *Undef (E) 

-> CommandPending (E), CreateAppl (op, E, newobj {}, newobj {}) ; 

if '’'CreateAppl (op, E, X, Y), *CommandPending (E) 

-> {Appl (E), Op (op. E). Left (X, E), Right (Y, E), Undef (X), Undef (Y), CurrentNode (X); 
Command (”show”)}; 

! delete Command 

if ^Command ("delete"). CurrentNode (E), *Appl (E), *Op (N E) , *Left (X, E), Right (Y , E) 

-> Undef (E). Command ("show"); 

! in Command 

if ^Command ("in"). '’^(mrrentNode (E). Left (X. E) 

-> CurrentNode (X), Command (’^liow"); 
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' out Comm and 



if "'Command ("out”), *CurrentNode (X), Left (X, E) 

-> CurrentNode (E), Command (’%how"); 

if ^Command ("out"), *CurrentNode (Y), Right (Y, E) 

-> CurrentNode (E), Command ('^how"); 

! next Command 

if *Command ("next"), ^CurrentNode (X), Left (X, E), Right (Y, E) 
-> CurrentNode (Y). Command ("show"): 

! prev Command 

if ^Command ( Vev"), ^CurrentNode (Y), Right (Y, E) , Left (X, E) 
-> CurrentNode (X), Command ('^how"); 

>>}. 

act {ApplRules}. 
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! BLOCK 



! Relations 

newrelation {''Block"}; 
newrelation {''BndVar"}; 
newrelation C'BndVal"}; 
newrelation {"Body"}; 

newrelation {"Create Let"}. 

define {root. ''BlockRules". 

! Evaluation 

if ^''Eval (E, C), Block (E), BndVai (X, E) 

-> Eval (X. C); 

if Block (E), BndVar (N, E), BndVal (X, E), Body (B, E), ^Value (V, X, C), Comment (S, E) 

-> Create Context (newobj {}, *N, V, C, B, S) 

else if Block (E). BndVar (N, E), BndVal (X. E), Body (B. E), n^alue (V, X, C) 

-> CreateContext (newobj {}, N, V, C, B); 

if *Cre ate Con text (D, N, \\ C, B. S) 

- > CreateContext (D. N. V, C. B), (Comment (S. D); 

if *Cre ate Con text (D, X, V, C, B) 

-> Context (D). Binds (D. N, V), Nonlocal (C, D), Eval ( B. D): 

if Block (E), Body (B, E), ^'alue (V, B, D), "Nonlocal (C, D), *Binds (D, N, W), ^Context (D) 
Value (V. E, C); 

! Un parsing 
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if ’Unparse (E). Block (E), BndVaJ (X, E), Body (B, E) 

-> Unparse (X), Unparse (B); 

! Unparsing comments on blocks 

if Block (E), BndVar (N, E), BndVal (X, E), Body (B, E), ’Image (U, X), ’Image (V. B), Comment (S, P 
-> Image ( 

Tabln - XL - "I let {" t S 

- Tabln + NL + N + " = " + U 

- NL + V - " ; " 

- TabOut — TabOui. E) 

else if Block (E), BndVar (N, E), BndVal (X, E), Body (B, E) , ’Image (U, X), ’Image (V, B) 

-> Image ( Tabln + NL 
_ "'let " + N - " = " - U 

- Tabln + NL + V + "]" 

TabOut TabOut, 

E); 

! lei Command 

if ^Command ('Tet”), ^Argument (N), *CurrentNode (E), *Undef (E) 

-> CommandPending (E). CreateLet (N, E, newobj {}, newobj {)) ; 

if ""CreateLet (N, E. X. B) . *CommandPending ( E) 

-> {Block (E), BndVar (N, E) , BndVal (X, E), Body ( B, E) , 

Undef (X), Undef (B), CurrenlNode (X); 

Command (’^how”)}: 

! in Command 

if ^Command ("in”). "CurrenlNode (E), BndVal (X, E) 
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-> CurrentNode (X), Command (’^how"); 



! out Command 

if *Command ("out'*), *CurrentNode (X), BndVal (X, E) 

-> CurrentNode (E), Command (’\show"); 

if ^Command ("out"). ^CurrentNode (B), Body (B, E) 

-> CurrentNode (E), Command ('\show"); 

! next Command 

if *Command ("next"), "^CurrentNode (X), BndVal (X, E), Body (B, E) 
-> CurrentNode (B). Command ('’show"); 

! prev Command 

if ^Command ("prev"), *CurrentNode (B), Body (B, E) , BndVal (X, E) 
-> CurrentNode (X), Command ('fehow"); 

>>}• 

act {BlockRules}. 



30 - 



! CONDITIONAL EXPRESSION NODES 



! Relations 

newrelation {”ConEx*’}; 

f 

newrelation {"Cond"}; 
newrelation {’Conseq”}; 
newTelation {”Alt”}; 

newrelation {’CreateConEx”}. 

define {root. "ConExRules^'. < < 

! Evaluation 

if *Eval (E, C), ConEx (E), Cond (B, E) 

-> Eval (B, C); 

if ConEx (E), Cond (B. E), Conseq (T, E), *Value (true, B, C) 

-> Eval (T. C); 

if ConEx (E), Cond (B, E), Alt (F, E). "Value (false, B, C) 

-> Eval (F, C); 

if ConEx (E), Conseq (T, E), "Value (V, T, C) 

-> Value (V, E, C); 

if ConEx (E), Alt (F, E), "Value (V, F, C) 

-> Value (V, E, C); 

! Inparsing 

if "Unparse (E), ConEx (E). Cond ( B, E), Conseq (T, E), Alt (F, E) 
-> Unparse (B), Unparse (T), Unparse (F); 
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if ConEx (E), Cond (B, E), Conseq (T, E), Alt (F, E), ’^Image (U, B), *lmage (V, T) , "^linage (W, F) 
-> Image ( Tabln -r NL 4- 
M(if u ^ NL ^ 

''then V ^ NL -f 

Melse W + ” ^ 

TabOut 4- NL, E); 

! Editing 

! if Comm and 

if ^Command ("if”), "^CurrentNode (E), "^Undef (E) 

-> CommandPending (E), CreateConEx (E, newobj {}, newobj {}, newobj {}) ; 

if *CreateConEx (E, B, T, F), *CommandPending (E) 

-> {ConEx (E), Cond (B, E) , Conseq (T, E), Alt (F, E), 

Undef (B), Undef (T), Undef (F), CurrentNode ( B) ; 

Command ("show")}; 

! in Command 

if '''Command ("in"), *CurrentNode (E), ConEx (E), Cond (B, E) 

-> CurrentNode (B), Command ("show"); 

! out Command 

if *Command ("out"), ^CurrentNode (B), Cond (B, E), ConEx ( E) 

-> CurrentNode (E), Command ("show"); 

if '^Command ("out"), ^CurrentNode (T), Conseq (T, E), ConEx ( E) 

CurrentNode (E), Command (’!show"); 

if "Command ("out"), "CurrentNode (F), Alt ( F, E), ConEx ( E) 
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-> CurrentNode (E), Command ('^how”); 



! next Command 

if ^Command ("next”), ’^CurrentNode (B), Cond (B, E), Conseq (T, E) 
-> CurrentNode (T), Command (’^how"); 

if ^Command ("next"), ^CurrentNode (T), Conseq (T, E), Alt (F, E) 
-> -urrentNode (F), Command ("show"); 

! prev Command 

if ’^Command ("prev"), ^CurrentNode (F), Alt (F, E), Conseq (T, E) 

-> CurrentNode (T), Command ('^how"); 

if ^Command ('^rev"), *CurrentNode (T), Conseq (T, E), Cond (B, E) 
-> CurrentNode (B), Command ("show"); 

> > }• 



act {ConExRules}. 



! FUNCTION DEFINITION AND INVOCATION 



! Definition Abstract Structure 

newrelation {’TunDef"}; 
newrelation {’FunName "}; 
newrelation {’FunFormal”}; 
newrelation {'FunBody”}; 
newrelation {’FunScope”}; 

! Invocation Abstract Structure 

newrelation {’Call”}; 
newrelation {’Fator"}; 
newrelation {’Fand"}; 

! Runtime Relations 

newrelation {’Closure”}; 
newrelation {’FP"}; 
newrelation {’IP"}; 
newrelation {’FP"}; 
newrelation {'Caller"}; 
newrelation {"Name"}; 
newrelation {"Argument2"}; 

newrelation {’Create Call"}: 
newrelation {’CreateFun Def"}; 
ne wrelation {’’Create A ctRecord"}; 
newrelation {"Create Fun Context ’’}. 

define {root, ’FunRules", < < 
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! FUNCTION INVOCATION 



! Editing 
! call Command 

if ^Command ("call"), *CurrentNode (E), *Undef (E) 

-> CommandPending (E), CreateCall (newobj {}, newobj {}, E); 

if *CreateCall (F, X, E), *Comm andPending (E) 

-> Call (E), Rator (F, E) , Rand (X, E) , Undef (F), Undef (X), CurrentNode (F); 
! next Command 

if "^Command ("next'’), "^CurrentNode (F), Rator (F, E) , Call (E), Rand (X, E) 

-> CurrentNode (X), Command ('^how"); 

! Un parsing 

if *Unparse (E), CaU (E), Rator (F, E), Rand (X, E) 

-> Un parse (F), Un parse (X); 

if Call (E), Rator (F, E), Rand (X, E), *Image (U, F), *Image (V, X) 

-> Image (U + » ” V, E); 

! Evaluation 

! Evaluate Rator and Rand 

if *Eval (E, C). Call (E), Rator (F, E), Rand (X. E) 

Eval (F, C), Eval (X, C); 

I Evaluate Body 

if Call (E), Rator (F, E) , Rand (X, E), Var (F), Ident (M. F), 
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’Value (K, F, C), ’Value (V, X, C), 

Closure (K), EP (D, K), IP (B, K) , FP (N, K) 

-> CreateActRecord (newobj {}, D, N, V, M, E. C, B); 

if ’CreateActRecord (A, D, N, V, M, E, C, B) 

-> Context (A), Nonlocal (D, A), Binds (A, N, V), 
Name (M, A), Caller (E, C, B, A), Eval (B, A); 

! Return Value 

if ’Caller (E. C. B, A), ’Value (V, B. A) 

Value (V, E, C); 
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! FUNCTION DEFINITION 



! Editing 
! func Command 

if ^Command (*func"), ^Argument (F), *Argument2 (N), "^CurrentNode (E), *Undef (E) 
-> CommandPending (E), CreateFunDef (newobj (}, newobj {}, F, N, E); 

if *CreateFunDef (B, X, F, N, E) , *CommandPending (E) 

-> FunDef (E), FunName (F, E), FunFormal -(N, E) , FunBody (B, E), FunScope (X, E) 
Undef (B), Undef (X). CurrentNode (B); 

! next Command 

if ^Command (’*next”), *CurrentNode (B), FunBody (B, E) , FunScope (X, E) 

-> CurrentNode (X), Command (^^how**); 

! in Command 

if *Command ("in”), *CurrentNode (E), FunDef(E). FunBody (B, E) 

-> CurrentNode (B), Command ("show*’); 

! out Command 

if ^Command ("out*’), *CurrentNode (B), FunBody (B, E) 

-> CurrentNode (E), Command (*^how*’); 

if *Command ("out**), ^CurrentNode (X), FunScope (X, E) 

-> CurrentNode (E), Command (*!show**): 

! Un parsing 

if "^Unparse (E), FunDef (E), FunBody (B, E), FunScope (X, E) 

-> Un parse ( B) , Un parse (X); 



if FunDef (E), FunName (F, E) , FunFormal (N, E) , FunBody (B. E), FunScope (X, E), 

‘Image (U, B), ‘Image (V, X) 

-> Image (Tabln — NL 

- "Ifunc "4- F * " " - X - " = " 

+ Tabln T U + 

- XL - V ^ "]" 

- TabOut -h TabOut, 

E); 

! Evaluation 
! Analysis 

if *Eval (E, C), FunDef (E), FunName (F, E), FunFormaJ (N, E), FunBody (B, E) , FunScope (X, E) 
-> CreateFunContext (newobj {}, newobj {}, C. F, B, N, X); 

if ^CreateFunContext (D, K, C, F, B, N, X) 

-> Context (D), Nonlocal (C, D). Binds (D, F, K) , 

Closure (K), EP (D, K), IP (B. K) , FP (N, K), 

Eval (X, D); 

! Synthesis 

if FunDef (E), FunScope (X, E). "Value (V, X, D), Nonlocal (C, D) 

- Value (V, E, C); 

! Debugging 

! context Command 

if ^Command ("context”), CurrentContext (C), Binds (C, N, K), Closure (K) 

*> displayn {N — " = ... function ..."} 
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else if ^Command ("context”), CurrentContext (C), Binds (C, N, V), Name (M, C) 

-> displavTi {M ^ N ^ int^tr V’ ^ ")"} 

else if ^Command ("context"), CurrentContext (C), Binds (C, N, V), Comment (S, C) 
-> displayn ( N — "= int_str [VI -f " {" -f S ^ "}" ) 

else if ^Command ("context"), CurrentContext (C), Binds (C, N, V) 

-> displavTi ( N "= " int_str [V] ) 

else if ^Command ("context") 

-> displavTi ("no bindings"); 

! caller Command 

if ^Command ("caller"), CurrentContext (A), Caller (E, C, B, A) 

-> CurrentContext (C), Command ("context’^; 

! callee Command 

>>}. 

act {FunRules}. 
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! TEST DRIVER 



! Relations 

newrelation {’Script”}; 
newrelation {’Test”}. 

! Monadic Command List 

define {root, ”MonadicCommands”, 

’Val”, ”let”, ’Var”, ’’alter”, ”rem”j}. 

define {root, ’TestRules”. < < 

! Script Sequencer 

if *Script (A, Nil). "Command (— ), "CommandPending (— ) 

A (’Script completed”) 

else if ^Script (A, L), "Command (— ), "Comm andPending (— ), first [L] = ’Tunc” 

-> { displayn {” ... ” - first rest Ll 

— ” -f first rest j rest |L] ] ) ^ Lj j. 

Command (first L; ) , Argument (first rest [ L] ] ) , Argument2 (first rest rest L] | ) ; 

Script (A, rest rest ' rest L]]j) } 

else if *Script (A, L), "Command (— ), "CommandPending (— ), member [first Lj, Mon adicCommands 
-> { display {” ... ”}; 

display {first rest L]]}; 
displayn {” ” first L }; 

Command ( first L ), Argument (first rest | L] ] ) ; 

Script (.\, rest rest L j ) } 

else if ^Script (A, L). "Command ( ). "Comm andPending ( ) 



- 40 - 



-> { displayn {" ... " ^ first LI}; 
Command (first L]); 

Script (A, rest L] ) }; 



! Test Scripts 



if *Test (A, 1) -> { Script ([ 

'^egin*\ ”let'\ "K", 4, "next", Tunc", Tac", "n", 

Tf", ’*= ", ’Var", "n", 'Viext", 0, "out", ’Viext", 1, "next", 
’be", ’Var", "n", "next", "call", ’Var", Tac", "next", 

’Var". "n". "next" 1, ’Voot". "in", "next", "in", "next", 

"call", ’Var", ’Tae", "next", ’Var", "K", "root", "evaluate" 

1 }; 

A ('Test done’’); 

}; 



if *Test (A, 2) -> { Script {[ 

"in", "next", "in", ’^n", "next", "delete", 

"rem". "error", "/", 1, "next", "#", 0, "root", "evaluate", 

"context", "caller", "callee", "caller", "caller", 

"out_context", "out_con text", "done" 

A ( 'Test done ") ; 



>> } 



act {TestRules}. 



I Initialize Data Structures 



CurrentNode (Nil), 
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Current Con text (Nil). 
SuspendedEval (Nil), 
displayn {’PI-4 System loaded’’}. 



APPENDIX B: Transcript of Q Session 



The following is a transcript of an Q session illustrating the operation of the prototype programming 
environment shown in Appendix A. The assertion ‘Script {testscript}’ causes the commands in 
testscript to be executed in order. The nth testscript is executed by ‘Test{n}’. Each command is 
printed on a separate line, followed by whatever output is generated by the programming environment. 
This transcript was produced by the McArthur interpreter ' McArthur84: . 

% omega 

OMEGA-1 11/30/84 

Use Cntl-D or exit{) to quit. 

For help, enter help{’?”}. 

To report a bug, enter Bugs{}. 
newrelation rule activated. 

> do{'Pl4.rul"}. 

PI-4 System loaded 
OK 

> {Test{l}; Test {2}}. 

... begin 

... K let 

< expr> 

- 4 

... next 

< expr> 

... f ac n func 
... if 

< expr> 
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< expr> 



... n var 
... next 

< expr> 

... 0 # 

... out 

(n = 0) 

... next 

< expr> 

... 1 ^ 

... next 

< expr> 

... x 

< e.xpr> 

... n var 
... next 

< expr> 

... call 

... fac var 
... next 

< expr> 

< expr> 

... n var 
... next 

expr > 

... 1 # 

... root 
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(let K = 4 
' func fac n = 

(if (n = 0) 
then 1 

else (n X fac (n - l)) ) 

< expr> j ] 

... in 
4 

... next 

func fac n = 

(if (n = 0) 
then 1 

else (n x fax: (n - l)) ) 

< expr> j 
... in 

(if (n = 0) 
then 1 

else (n x fax: (n - l)) ) 

... next 

< expr> 

... call 

... fac var 
... next 

< expr> 

... K var 
... root 
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let K = 4 



func fax: n = 

(if (n = 0) 
then 1 

else ( n x fac ( n - 1) ) ) 

fac K ] ] 

... evaluate 
24 

... in 
4 

... next 

func fac n = 

(if (n = 0) 
then 1 

else (n X fac (n - 1) ) ) 

fac K ] 

... in 

(if (n = 0) 
then 1 

e Ise ( n x f ac ( n - 1 ) ) ) 

... in 
(n = 0) 

... next 

1 

... delete 
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< expr> 



... error rem 

< expr> 

... 1 # 

... next 

< expr> 

... 0 # 

... root 

let K ^ 4 

[func fac n = 

(if (n = 0) 
then {error} (1/0) 
else (n X fac (n - 1) ) ) 

fac K ] 1 
... evaluate 
division by zero 
... context 
fac (n = 0) 

... caller 
fac (n = 1) 

... callee 
fac (n = 0) 

... caller 
fac (n = 1) 

... caller 



fac (n = 2) 



... out context 



fac = ... function ... 
... out_context 
K = 4 
... done 

PI system stopped 
Test done 
> exit{}. 

Goodbye. 
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